COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) MFFIL.SAI[MF,DEK] and 2) MFF20.SAI[MF,DRF]	1-22-81 11:19	pages 1,1
C00005 00003	  1) MFFIL.SAI[MF,DEK] and 2) MFF20.SAI[MF,DRF]	1-22-81 11:19	pages 1,1
C00008 ENDMK
C⊗;
  1) MFFIL.SAI[MF,DEK] and 2) MFF20.SAI[MF,DRF]	1-22-81 11:19	pages 1,1

**** File 1) MFFIL.SAI[MF,DEK]/1P/1L
1)	comment This page contains the most TENEX-dependent aspects
1)	of the METAFONT input routines for TENEX installations;
1)	internal saf string array fname[0:2] # file directory, name, and extension;
**** File 2) MFF20.SAI[MF,DRF]/1P/1L
2)	comment This page contains the most TOPS20-dependent aspects
2)	of the METAFONT input routines for TOPS20 installations. It
2)	is "included" by MFNTRP;
2)	internal saf string array fname[0:2] # file directory, name, and extension;
***************


**** File 1) MFFIL.SAI[MF,DEK]/1P/7L
1)	fname[0]←fname[1]←fname[2]←null;
1)	j←1;
**** File 2) MFF20.SAI[MF,DRF]/1P/8L
2)	fname[0]←fname[1]←fname[2]←"";
2)	j←1;
***************


**** File 1) MFFIL.SAI[MF,DEK]/1P/11L
1)		if c="." then j←2
1)		else if c="<" then j←0
1)		else if c=">" then j←0
1)		else begin
**** File 2) MFF20.SAI[MF,DRF]/1P/12L
2)		if c="." and j=1 then j←2
2)		else if c=":" and j=1 then begin fname[0]←fname[1]; fname[1]←""; end
2)		else if c="<" and j=1 and fname[1]="" then j←0
2)		else begin
***************


**** File 1) MFFIL.SAI[MF,DEK]/1P/20L
1)		if c=">" then j←1;
1)		end;
**** File 2) MFF20.SAI[MF,DRF]/1P/21L
2)		if c=">" and j=0 then j←1;
2)		end;
***************


**** File 1) MFFIL.SAI[MF,DEK]/1P/36L
1)	if fname[2]=0 then fname[2]←".mf" # default extension;
1)	flname←fname[0]&fname[1]&fname[2];
1)	open(chan←getchan,"DSK",0,1,0,4000,brchar,eof) # input, no output;
1)	lookup(chan,flname,eof);
  1) MFFIL.SAI[MF,DEK] and 2) MFF20.SAI[MF,DRF]	1-22-81 11:19	pages 1,1

1)	comment if lookup failed and no explicit directory was given, try <MF>;
1)	if eof and fname[0]=0 then
1)		begin comment if lookup failed and no explicit directory was given,
1)			try default directory <MF>;
1)		flname←"<MF>"&flname;
1)		lookup(chan,flname,eof);
1)		end;
1)	if eof then
1)		begin error("Lookup failed on file "&flname);
1)		release(chan); go to try;
1)		end;
1)	print(" (",flname);
1)	pushinput # save present file status;
**** File 2) MFF20.SAI[MF,DRF]/1P/37L
2)	if fname[2]="" then fname[2]←".mf" # default extension;
2)	flname←fname[0]&fname[1]&fname[2];
2)	chan←openfile(flname,"RE");
2)	comment if lookup failed and no explicit directory was given, try <tex.fonts>;
2)	if chan<0 and fname[0]="" then
2)		begin comment if lookup failed and no explicit directory was given,
2)			try default directory <MF>;
2)		flname←"PS:<TEX.FONTS>"&flname;
2)		chan←openfile(flname,"RE");
2)		end;
2)	if chan<0 then
2)		begin error("Lookup failed on file "&flname);
2)		go to try;
2)		end;
2)	print(" (",flname);
2)	setinput(chan,4000,brchar,eof);
2)	pushinput # save present file status;
***************


**** File 1) MFFIL.SAI[MF,DEK]/1P/56L
1)	checkeof; print(" 1");
**** File 2) MFF20.SAI[MF,DRF]/1P/57L
2)	# DRF ;			IF EOF AND LENGTH(INBUF)>0 THEN BEGIN
2)					INBUF←INBUF&'15 # PUT IN DUMMY CR ON INPUT;
2)					BRCHAR←'15 # CONVINCE CODE BELOW ABOUT IT;
2)					EOF←0 # CATCH IT NEXT TIME;
2)					END;
2)	checkeof; print(" 1");
***************